Imports System.Xml
Imports System.Data.SqlClient
Public Class dImpRecCaja
  Public Function Insertar(ByVal Importe as String,ByVal IdRecibo as String) as BOOLEAN
     Dim Parametros As ArrayList = New ArrayList
     if Importe <> "" then 
       Parametros.Add(New SqlParameter("@pEImporte", Importe))
     End If
     if IdRecibo <> "" then 
       Parametros.Add(New SqlParameter("@pEIdRecibo", IdRecibo))
     End If
     Return dconexion.ABM("STORE_TblImpRecCajaALTA", Parametros)
  End Function
  Public Function Eliminar(ByVal IdImpRecCaja as String) as BOOLEAN
     Dim Parametros As ArrayList = New ArrayList
     if IdImpRecCaja <> "" then 
       Parametros.Add(New SqlParameter("@pEIdImpRecCaja", IdImpRecCaja))
     End If
     Return dconexion.ABM("STORE_TblImpRecCajaELIMINAR", Parametros)
  End Function
  Public Function BuscarFiltrado(ByVal IdImpRecCaja as String,ByVal Importe as String,ByVal IdRecibo as String) as DATASET
     Dim Parametros As ArrayList = New ArrayList
     if IdImpRecCaja <> "" then 
       Parametros.Add(New SqlParameter("@pEIdImpRecCaja", IdImpRecCaja))
     End If
     if Importe <> "" then 
       Parametros.Add(New SqlParameter("@pEImporte", Importe))
     End If
     if IdRecibo <> "" then 
       Parametros.Add(New SqlParameter("@pEIdRecibo", IdRecibo))
     End If
     Return dconexion.Consultar("STORE_TblImpRecCajaBUSCARFILTRADO", Parametros)
  End Function
End Class
